Apple II Magazines (PO)/Nibble Volume 12, No. 02 (1991-02)(MindCraft Publishing)(Side A)[a].zip/Nibble Volume 12, No. 02 (1991-02)(MindCraft Publishing)(Side A)[a].po/DUEL.bas

BASIC Source File | 1996-12-24 | 583b | 2 lines

1  GR : COLOR= 15: FOR I = 0 TO 1: HLIN 0,39 AT 39 *I: VLIN 0,39 AT 39 *I: READ X(I),Y(I),C(I),V(I),E(I),W(I),S(I),N(I),A$(I): NEXT : FOR V = 0 TO 1: FOR I = 0 TO 1: COLOR= C(I): PLOT X(I),Y(I): NEXT :K =  PEEK(49152) -193: POKE 49168,0: FOR I = 0 TO 1:F(I) = (K = E(I)) -(K = W(I))
2 G(I) = (K = S(I)) -(K = N(I)):H(I) = (H(I) +F(I) *  NOT H(I)) *  NOT G(I):V(I) = (V(I) +G(I) *  NOT V(I)) *  NOT F(I):X(I) = X(I) +H(I):Y(I) = Y(I) +V(I): NEXT :V = ( SCRN( X(0),Y(0)) < >0) *2 +( SCRN( X(1),Y(1)) < >0): NEXT : PRINT A$(V -2): DATA 9,39,2,-1,18,0,25,22,BLUE,29,0,11,1,10,9,12,8,PINK